main__bestprice();
}
-sub main__bestprice () {
+sub main__bestprices () {
foreach $commod (sort keys %commod) {
$current= $commod{$commod};
my $buys= bs_p($commod,Buy, -1);
}
sub main__upload () {
- die "Uploading not yet implemented, sorry\n.";
+ die "\nUploading not yet implemented, sorry.\n";
}
+$mode =~ s/\-//;
&{"main__$mode"};
close(STDOUT) or die $!;