Select Code to Download

my ($pfmt,$line,@header = ("s50c150");
sub packlen {
...
}
read FILE, $line, packlen($pfmt) or die $!;
@header = unpack $pfmt, $line;

$ perl -e '$foo="I50a150";print length(pack $foo),$/' 
350
$