#!/usr/bin/perl
# cpanel9 - LoadFile.pm               Copyright(c) 1999-2004 cPanel, Inc.
#                                 All rights Reserved.
# copyright@cpanel.net              http://cpanel.net

package LoadFile;

use strict;
no strict 'subs';
use Carp;

use vars qw(@ISA @EXPORT $VERSION);

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(loadfile);

$VERSION = '1.0';

 
sub loadfile {
        my($file) = @_;
        my $data;
        open(FILE,"<",$file);
        while(<FILE>) {
                $data .= $_;
        }
        close(FILE);
        return($data);
}

1;