Select Code to Download

#!/usr/bin/perl
    #use strict;
...

#    print ("$avg,\n");
     print ("@r \n");

Possible unintended interpolation of @r in string at ./runsql.pl line 
+41.
Name "main::r" used only once: possible typo at ./runsql.pl line 41.
...
Execution ERROR: No command found!.

Use of uninitialized value in array dereference at ./runsql.pl line 18
+.