my $req = POST $url, Content_Type => 'form-data',
Content => [
loaderid => $loaderid,
zipped => $zipped,
user => $user,
filetype => $filetype,
file => [ $fname ]
];
####
####################
# Load Settings #
####################
loaderid = 382
user = Andy
zipped = 1 # 0 Not Zipped, 1 Zipped, 2 Gzipped- do not use -1
filetype = 1 # 1 = Measurements, 2 = Outage, 3 = Rotation
####
while () {
chomp; # no newline
s/#.*//; # no comments
s/^\s+//; # no leading white
s/\s+$//; # no trailing white
next unless length; # anything left?
my ($var, $value) = split(/\s*=\s*/, $_, 2);
$preferences{$var} = $value;
}