my $v = 123;

print eval{
    fileno($v);
} || $^E;


# Ein Vorgang bezog sich auf ein Objekt, das kein Socket ist
# sagt $^E