#!/usr/local/bin/perl
use strict;
use warnings;

my @ARVG = (1, 2, 3, 4);
my $dir = $ARVG[0] || "/tmp";
print $dir;