Generally A Perl File

FILE.pl

#!/usr/bin/perl
use strict;
use warnings;

# Open the file for reading
my $file_path = "data.txt";
open my $fh, '<', $file_path or die "Could not open file '$file_path' for reading: $!";

# Read and print each line from the file
while (my $line = <$fh>) {
    chomp $line;  # Remove newline character
    print "Line from file: $line\n";
}

# Close the filehandle
close $fh or die "Error closing file '$file_path': $!";