use warnings;
    use strict;

    my $file = "/strawberry/perl/website.txt";
    open (FH, "< $file") or die "Can't open $file for read: $!";
    my @lines = <FH>;
    print @lines;
    close FH or die "Cannot close $file: $!";