#! perl -slw
use strict;
use Time::HiRes qw[ time sleep ];
use Net::FTP;

$|=1;

sub TIEHANDLE { return bless [ 0 ], $_[0] }
sub PRINT{
    my $self = shift;
    if( $self->[ 0 ] ) {
        my $delay = ( $self->[ 0 ]+1  - time() );
        printf "%f\n",  $delay;
        sleep 1+$delay; ## Insert delay
    }
    $self->[ 0 ] = time();
}

local *GLOB;
tie *GLOB, 'main';


my( $site, $dir, $file ) = $ARGV[ 0 ] =~ m[
    ^(?:ftp://)?
    ([^/]+)
    (/.*?)
    /
    ([^/]+$)
]x or die "Couldn't parse url";

my $ftp = Net::FTP->new( $site, Hash => \*GLOB ) or die $@;
$ftp->login( 'anonymous', 'anonymous@' );
$ftp->cwd( $dir ) or die $@;
$ftp->get( $file ) or die $@;