#!/usr/bin/perl
  
  use warnings;
  use LWP::Simple;
  use Tie::File;
  
  my $testfolder = "/Users/Apurv/Desktop/";
  
  tie @file, 'Tie::File', $testfolder . "file1.txt" or die;
  
  foreach $URL (@file)
  {
  my $name   = substr $URL, 29, 13;
  my $add    = substr $URL, 0, 29;
  my $file   = $testfolder . "$name";
  my $status = mirror($add,$file);
  die "Cannot retrieve $add" unless is_success($status);
  
  
  .
  .
  . {Mailing Part code}
  
  
  }