#!/usr/bin/perl

use strict;
use warnings;

my $path = "PATH=/opt/oracle/product/10.2/db_1/bin:\$PATH";
my $commit = "export PATH";
system($path);
system($commit);