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

my $filename = shift @ARGV;

open(FILE1, "<", $filename) or die "Unable to open '$filename': $!";