#!/usr/local/bin/perl
use IPC::Run3;
my $cmd = qq(/oracle/pieces/abc.sh);
my @params = ('y','y','y');
my $params = join "\n", @in;
run3([$cmd], \$params)