perl6 port

#! /usr/bin/perl5 -w
open STATE, ">xstate" || die "can't open xstate $!";
select STATE;
$|=1;
while(<>)
{
        my ( $i, $mode ) = /([[:digit:]]+):(.*)/;
        seek STATE, $i*4, 0;
        print $mode;
}

#! /usr/bin/perl6

   . . .