package UFile
@ISA = qw()

sub new
my ($module, $path, $mode) = @_;
return undef unless($this->Open($path, $mode));
return $this;

sub DESTROY
my $this = shift;

sub get
my ($URL) = @_;
return LWP::Simple::get($URL);
return JFile::new->ReadFile($URL);

sub head
my ($URL) = @_;
return LWP::Simple::head($URL);