my @arr;
if ( -d $ARGV[0] ) {
  my $dir = shift @ARGV;
  @arr = map { "$dir/$_" } @ARGV;
}
else {
  @arr = @ARGV;
}