#!/usr/bin/perl -w

## test 1: open for input

open( I, $ARGV[0] ) or die $!;

while(<I>) {print}