#!/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;