#!/usr/bin/perl -w
use LWP::Simple;

my $filename = "http://sample.com/secure/sample.xls";

MakeFileLocal($filename);

sub MakeFileLocal {
  my $filename = shift;

  chomp($filename);

  $filename =~ m/.*\.(.*)$/;
  my $suffix = $1;
  print "Suffix : $suffix\n";
  my $newname = "d:/test/mohan/temp.$suffix";

  unlink("$newname");

  if ($filename =~ m/^http/i) {
    print "Name matches starts with http://\n";
    my $retval = getstore($filename, $newname);
    die "Could not store it!!\n" unless is_success($retval);
  } else {
    my $cmd = qq~copy "$filename" "$newname"~;
    print "$cmd\n";
    my @a = `$cmd`;
    }

  if (-e "$newname") {
    return $newname;
  }
  
  return 0;
  }