Select Code to Download

apple <= banana;
cat := dog;
elephant <= flag;
 and so on....

while(<>)
{
...
            $sth->execute($_[0], $_[1]) or die $DBI::errstr;
                       #even tried with @words[0] and @words[1].
    }}