package Hotfile;
# Perl->Hotfile API
use strict;
use warnings;
use LWP::UserAgent; 

our $HFA_VERSION = 0.1;                                                     # Perlmodul Version
our $HFA_WHO = "Hotfile-PerlAPI/$HFA_VERSION";                              # UserAgent-Name

sub new() {                                         
     my $class = shift;
     return bless {}, $class;
}

sub link_status($){
  my $url     = shift;
  my $browser = new LWP::UserAgent;
  $browser    ->agent($HFA_WHO);
  my $resp    = $browser->get("http://api.hotfile.com/?action=checklinks&links=$url&fields=status");
  my $status  = $resp->decoded_content();
    return $status;
}
1;

#!/usr/bin/perl
use strict;
use warnings;
use lib '.';
use Hotfile;
my $a = new Hotfile;
my $b = $a->link_status("http://hotfile.com/dl/131350300/aec8c02/test.txt.html");
print $b;