sub function1
{
$var = shift || "No argument";
print $var . "\n";
}