Help for this page

Select Code to Download

Select or download this

 #! perl -w
 my @dbs = <DATA>; 
...
__DATA__
DB1
DB2

Select or download this

C:\test>190748
Select DB from:
...
Quiting...

C:\test>