sub do_something
{
   my $file = shift || 'default';
}

##</code><code>##

sub do_something
{
   my $file = shift or
     warn "empty parameter\n";
}