#!/usr/bin/perl

use strict;
use warnings;

$ENV{PATH} = "\$PATH=\$PATH:/opt/oracle/product/10.2/db_1/bin";
$ENV{ORACLE_HOME} = "/opt/oracle/product/10.2/db_1";

my $string = "exp \"nutzer/passwort\@DB\" file=/pfad/exp_db.dmp statistics=none FULL=y LOG=/pfad/exp_db.log";

system($string);