$ perl -MO=Deparse,-b,-p -e 'my $o = mysub() || print STDERR "WHY U NO WORK\n";' 
(my $o = (mysub() || print(STDERR "didnt work\n")));