my $fred = fred();
$fred or die "\n\tThis failed min!!!\n" ;