my $text = `cat $file`;

##</code><code>##

perldoc -f system

##</code><code>##

#!/usr/bin/perl -w
use strict;
my $file;
my @files = glob("bin/*.pl");

foreach $file (@files) {
    open(FILE, $file) || die "Couldn't open $file: $!\n";
    while(<FILE>) {
         chomp $_;
         print("$_\n");
    }
    close(FILE);
}