sub function1
{
my $var = defined $_[0] ? shift : 'No argument';
print "$var\n";
}