#!/usr/bin/perl -w 

use strict;  
use warnings; 
use IPC::System::Simple qw( system );
use Getopt::Std;
use Data::Dumper;

#USAGE


#Getting the command-line options
my %options=();
getopt("fdr",\%options);
print  Dumper( \%options );
#if (not exists $options{r} || not exists $options{d} || not exists $options{f})
#{

 #       print "Please enter the release,description and deleted files file.\n";
#}

system($_)
   for
 
   'p4 submit -d "options{d}" -f submitunchanged -i',
   'p4 label -o -t Test

Error message:-
If I run using "perl perl.pl -d Check_in -r 1012" I get the below error message
p4 submit -d "options{d}" -f submitunchanged -i" unexpectedly returned exit value 1 at perl.pl line 37