Select Code to Download

#!/usr/local/bin/perl

open(DEV, '/dev/sda6') or die "Can't open: $!\n";
...
  print tell(DEV), "\n", $buf, "\n"
    if $buf =~ /littleWindow/;
}

#!/usr/local/bin/perl
 
open(DEV, '/dev/sda6') or die "Can't open /dev/sda6: $!\n";
...
read(DEV, $buf, 40000) or die "Can't read: $!\n";
 
print OUT "$buf\n";