use strict;
use warnings;
use Getopt::Long qw(GetOptionsFromString);
use Data::Dumper;

my ($args, $job) = split /--job /, join( ' ', @ARGV );
my %opts;
my $ret = GetOptionsFromString( $args, \%opts, "file=s", "dir=s" );
$opts{"job"} = $job if $job;

print Dumper \%opts;