sub trun {
    my $string = shift or return "";
    my $max = shift or return $string;
....
}