Select Code to Download

$_[1]

my $parm1 = $_[0]; #sql statement
my $parm2 = $_[1]; #server
...
my $parm4 = $_[3]; #password
my $parm5 = $_[4]; #dbname
  # etc

my($sql_statement, $server, $username, $password, $dbname) = @_;

my $dbh=DBI->connect("dbi:Sybase:$parm2","$parm3", "$parm4" ) or die D
+BI::errstr;