Select Code to Download

#!/usr/bin/perl
use strict;
...
Useless use of a constant ("STRING") in void context at C:\test.pl lin
+e 7.

Process completed successfully