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