#!/usr/bin/perl print $ARGV[0]; print $ARGV[1]; print $ARGV[2];