my $filename = "<file.txt";
open( INPUTFILE, "< $filename" ) or die "$!";