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

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

my $shell = "";
my $shall = 2;
my %count = ($shell, $shall);
my $result = $count{ $shell || "bin/sh" }++;

print "$result\n";