#!/usr/bin/perl -w

## test 1: open for input

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

while(<I>) {print}

##</code><code>##

#!/usr/bin/perl -w

## test 2: open for output

open( O, '>', $ARGV[0] ) or die $!;

print O "this is a test\n";