#!/usr/bin/perl -w

use strict; 

package try;

use Exporter;
use vars qw(@ISA @EXPORT_OK);

@ISA = qw(Exporter);
@EXPORT_OK = qw($sql);

my $sql = 'select name from v$database;';

1;

system("echo \'$try::sql\' | sqlplus -s system/manager");