#!/usr/bin/perl

require LWP::UserAgent;
require HTTP::Request;
require HTTP::Response;
use HTTP::Request::Common;

##</code><code>##

foreach (@ARGV)
{
    if ( $_ eq $ARGV[0] )
    {
    $inputfile = $_;
    }
    elsif ( $_ eq $ARGV[1] )
    {
    $outdir = $ARGV[1];
    }
    else
    {
    die "Usage: $0 inputfile outdir\n";
    }
}

##</code><code>##

    die "Usage: $0 inputfile outdir\n" unless scalar @ARGV == 2;
  #I prefer "scalar @LIST", some prefer $#LIST, 
  #but remember the difference
   my ($inputfile, $outdir) = @ARGV;

##</code><code>##

        if     ($filenum =~ /\d\d\d\d/) {$filenum = $filenum; }
        elsif    ($filenum =~ /\d\d\d/) {$filenum = "0$filenum"; }
        elsif    ($filenum =~ /\d\d/) {$filenum = "00$filenum"; }
        else     {$filenum = "000$filenum"; }

##</code><code>##

   $filenum = sprintf("%04d", $filenum);