Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
open (data, 'data.txt') or die "die";
...
print $words[0];
exit;