Select Code to Download

#!/usr/bin/perl

...
      print "<$file1> \n";
   }
}

    haai hru welcome
...
select * from emp;
select * from dual;

haai hru welcome
...

<>
<>
...
<>
<>