#!/usr/bin/perl use strict; use warnings; open IN, "in.txt" or die "Can not open in.txt for reading : $!"; while ( my $line = <IN> ) { print "file:$line\n"; } close IN or die "Can not close file : $!";