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