Besides using for or foreach for the outer loop, you can replace

        open(FILE,"/home/kyleyankan/public_html/content/$_");
        @content = <FILE>;
        close(FILE);
        while (@content) {
                $stuff .= $_;
        }
[download]

with

   open(FILE,"/home/kyleyankan/public_html/content/$_");
   my   $stuff = join'', <FILE>;
[download]

Or if your comfortable with the concept

my $stuff = do{ 
    local *ARGV, $/;
    @ARGV = "/home/kyleyankan/public_html/content/$_";
    <>;
};
[download]

Also, you should really be checking the return code from open. eg

 
open FILE, "< path/$_"  
    or warn "Error on $_: $!;
[download]