#!/usr/bin/perl -w

## test 2: open for output

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

print O "this is a test\n";