Select Code to Download

for my $mode (@probe_modes) {
   my (@source,@destination);
...
   undef(@source);
   undef(@destination);
}

This is perl, v5.6.1 built for sun4-solaris-64int
(with 48 registered patches, see perl -V for more detail)
...
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-R /usr/
+perl5/5.6.1/lib/sun4-solaris-64int/CORE'
    cccdlflags='-KPIC', lddlflags='-G'