#!/usr/bin/env perl

use warnings;
use strict;

print read_file('foo.txt');
exit;

sub read_file {
    my $file = shift;
    open my $fh, '<', $file or die "Can not open file '$file' $!\n";
    my @all_lines = <$fh>;
    close $fh;
    return @all_lines;
}

##</code><code>##

apple
banana
orange

##</code><code>##

apple
banana
orange