#!perl
#
# look for "mirror/" at multiples of 512 bytes, then start copying.
$x="";
$n=0;
while(1) {
    sysread(STDIN, $x, 512) == 512 || die "read($n): $!";
    last if $x =~ /^mirror/;
    $n++;
}
$|=1;
print "$n\n"; exit 1;
print $x;
exec "/bin/dd";
#while(1) {
#    read(STDIN, $x, 512) == 512 || die "read($n): $!";
#    $n++;
#    print $x;
#}