#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use LWP::Debug;

#sdls.pl: run "ls -l" on remote host, stash result in href, 
#use result to determine size of file if supplied in @ARGV.

my $file=shift;

my $ua=new LWP::UserAgent;
my $uri='ftp://sirdavec@sirdave.com:src';
#'http://sirdave.com/src/';

my $req=new HTTP::Request 'GET' => "$uri";

my $resp_ref=$ua->request($req);
my $content=$resp_ref->decoded_content;
printf STDERR "%s\n", $content;

# check the outcome
my $error=$resp_ref->warning;
die $error if ($error);