#!/usr/bin/perl -w

use strict; 

package try;

sub new {
    my $self = {};
    $self->{SQL} = 'select name from v$database;';
    bless $self, 'try';
    return $self;
}

package main;

my $getit = try->new;

system("echo \'$getit->{SQL}\' | sqlplus -s system/manager");