my $file = shift || 'foo.html';

##</code><code>##

my $arg = shift;
my $file;
if ($arg) {
    $file = $arg;
} else {
    $file = 'foo.html';
}