#!/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";