Select Code to Download

#!d:/perl/bin/perl -w
use strict;
...
my $query6 = new 1;
my $query7 = new "";
my $query8 = new '';

my $query9 = new @;