#!/usr/bin/perl -w
# dump the contents of a file from the command line
open(FILE, '<' . $ARGV[0]) or die($!); print(<FILE>);