Select Code to Download

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

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