my $txt2print = MySub('This text')
  or warn('MySub said 0');

print $txt2print;

sub MySub {
  my $txt = shift;

  $txt = { do something here } 
    or return(0);

  return($txt);
}