#!/usr/bin/perl -w

use strict;

my $file = $ARGV[0];
open FILE, $file;
my $data = <FILE>:
close FILE;