#!/usr/bin/perl
  
  use warnings;
  use LWP::Simple;
  require LWP::UserAgent;
  use Tie::File;
  
  my $testfolder = "/Users/Appy/Desktop/";
  tie @file, 'Tie::File', $testfolder . "testfile.txt" or die;
  print "$file[1]\n";
  untie @file;
  
  my $ua = LWP::UserAgent->new;
  $ua->timeout(10);
  $ua->env_proxy;
  my $response = $ua->get($file[1]);
  
  if ($response->is_success) {
     print "The URL is active.\n";
 }
 else {
     print "The URL is Inactive.\n";
 }