Help for this page
for my $line (`head -30 $fullfile`)
for my $line (split qr/\'\n'/, get($fullfile))