my $sub = sub { print "Ich bin eine Sub!" };
if(ref($sub) eq "CODE"){
    &$sub;
}else{
    print "Ich bin keine Sub!";
}