Cannot exec(exp full=y statistics=none file=/home/ghodmode/runBackup/backup/13Mar2008_020502/oracle_data_13Mar2008_020502.dmp): No such file or directory

##</code><code>##

#!/usr/bin/perl -w

use strict;
use warnings;

use Expect;

my $envscript = '/usr/lib/oracle/xe/app/oracle/product/10.2.0/server/bin/oracle_env.sh';
open(ENV, "$envscript 2>&1 > expect.out; env |");

while ( <ENV> ) {
	chomp;
	my ($var, $value) = split( /=/, $_, 2 );
	next if ( !defined $var or !defined $value );
	$ENV{$var} = $value;
}

close ENV;


my $command = 'exp';
my @parameters = (
	'full=y',
	'statistics=none',
	'file=/home/ghodmode/runBackup/backup/oracle_data.dmp',
);

my $patidx;
my $pattern;

my $exp = new Expect;
$exp->raw_pty(1);

$exp->spawn($command, @parameters)
	or die "Cannot spawn $command: $!\n";

$pattern = '^Username:';
$patidx = $exp->expect( 5, ( '-re', $pattern) );
$exp->send( "me\n" );

$pattern = '^Password:';
$patidx = $exp->expect( 5, ('-re', $pattern) );
$exp->send( "my_password\n" );

$exp->soft_close();