#!/usr/local/bin/perl use strict; use warnings; my @ARGV = (0,2,3,4); my $dir = @ARVG ? $ARVG[0] : "/tmp"; print $dir;