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