#!/usr/bin/perl

use warnings;
use strict;

open (FILE,"$ARGV[0]") or die "could not open file $ARGV[0] : $!";
while (<FILE>) {
????
print;
}
close (FILE);