#!/usr/bin/perl -w
use strict;

my $o = mysub() || print STDERR "didn't work\n";
print $o;
print "\n";

$o = mysub();
print $o;
print "\n";

sub mysub
{
        return "";
}