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