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

    open (FILE, '<', 'sample.txt') or die "Could not open sample.txt: $!";
    while (<FILE>) {
        ....?????
    }
    close (FILE) or die "Could not close sample.txt: $!";