#!/usr/bin/perl

die("no arg!") unless $ARGV[0];
print "\$ARGV[0] = $ARGV[0]\n";