#!/usr/bin/perl -w
use strict;
use diagnostics;

##</code><code>##

my $file = $ARGV[0];
open (my $input, '<', $file) or die("Cannot open file $file: $!");
close ( $input );

##</code><code>##

my $file = $ARGV[0];
open (my $input, '<', $file) or die("Cannot open file $file: $!");
while($input>) {
}
close ( $input );

##</code><code>##

my $file = $ARGV[0];
open (my $input, '<', $file) or die("Cannot open file $file: $!");
while($input>) {
  if () {
  }
}
close ( $input );