Exécuter un code risqué

Utiliser la fonction eval pour évaluer le code :

#!/usr/local/bin/perl

use strict;

my $code = "die(\"Ooops\n\")";

eval $code or warn $!;

print "Suite du programme\n";

exit(1);