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

my $dir = shift(@ARVG) || "/tmp";
print $dir;