#!/usr/local/bin/perl use strict; use warnings; my $dir = shift(@ARVG) || "/tmp"; print $dir;