How can I handle errors and exceptions in Perl

In Perl, error and exception handling can be managed using the eval block and the $@ variable. The eval block catches exceptions that occur during the execution of code, allowing you to handle these errors gracefully.

# Error handling example in Perl
eval {
    # Code that may cause an error
    open(my $fh, '<', 'non_existent_file.txt') or die "Cannot open file: $!";
    
    # Try to read the file
    while (my $line = <$fh>) {
        print $line;
    }
    close($fh);
};

# Check if an error occurred
if ($@) {
    print "An error occurred: $@\n";  # Print the error message
}