+my $usage = "$PROGRAM_NAME: Usage: $PROGRAM_NAME [--ignore-transfer-speed=<pd> [--ignore-transfer-speed=<pd> ...]]\n";
+my $params;
+Getopt::Long::Configure('bundling');
+if (!GetOptions (
+ '--help' => \$params->{'help'},
+ '--ignore-transfer-speed=s@' => \$params->{'ignore-transfer-speed'},
+ )) {
+ die ($usage);
+};
+if ($params->{'help'}) {
+ print $usage;
+ exit (0);
+};
+die ($usage) unless (scalar @ARGV == 0);