sub do_something {
   my ( $file ) = @_;
   $file ||= "default.txt";
   ...
}