open($txtfile, $ARGV[0]) or die "File $ARGV[0] not found!\n";
$i = 0;
while ($line = <$txtfile>) {
    print "i:$line";
    i++
}
close($txtfile)