#!/usr/bin/perl
use strict;
use warnings;

my $filename = "readme.pl";

open(SOMEFILE, $filename) or die "Could not open file $filename";

while (<SOMEFILE>)
{
  print "LINE: $_";
}

close(SOMEFILE);