Select Code to Download

#!perl

...
my $output = $stylesheet->output_string($transformed);

print $output;

my $load_task =
    ref($task) eq 'ARRAY' && $load eq 'bed clothes'    ? $task->[1] :
    ref($task) eq 'ARRAY' && $load ne 'bed clothes'    ? $task->[0] :
                                                         $task
;

my $load_task =
    ref($task) ne 'ARRAY'         ? $task      :
    $load      eq 'bed clothes'   ? $task->[1] :
    $load      ne 'bed clothes'   ? $task->[0] :
die "huh?";

#!/usr/bin/perl -W 

...

  return @fileList;
}

$ perl -MTest::More -e 'plan "no_plan"; print use_ok("Does::Not::Exist
+"), "\n"; print pass("This is ok"), "\n"'
not ok 1 - use Does::Not::Exist;
...
1
1..2
# Looks like you failed 1 test of 2.

$ perl -MTest::More -e 'plan "no_plan"; BEGIN {print use_ok("Does::Not
+::Exist"), "\n"} print pass("This is ok"), "\n"'
ok 1 - This is ok
1
1..1

if ($a ||    # Some reason
    $b       # Some other reason

BEGIN {
  my $success = eval {
...
  };
  isnt($success, 1, "eval of use_ok failed (as expected)");
}

BEGIN {
    if ($foo) { die "this case should not succeed"; }
}

use strict;
use warnings;
...
}
close ($ifh);

my $nics = qx |/sbin/ifconfig| or die("Can't get info from ifconfig: $
+!\n");
my @nics = split /(?<=\n)(?=\w)/, $nics;
...
    # this statement needs work.
    #  print "Device: $a\n\tIPv4: $b\n\tBcast: $c\n\tMask: $d\n\tIPv6:
+ $e\n";
}

use strict;
use warnings;
...
# This should really be explicit about the \r\n
print "Content-Type: text/plain\n\n";
print 'Hello World';

use strict;
use warnings;
...

<tr><td>Neither</td><td>Will</td><td>This</td></tr>

use Win32::OLE::Variant;
...
$property->{Value} =
    Win32::OLE::Variant->new(VT_BOOL, 0xFFFFFFFF);

  $blah->Disconnect;
  $blah = Vendor::Lib->Connect(...);

  $blah->Disconnect;
  $blah = undef;
  $blah = Vendor::Lib->Connect(...);

(cd d1 && find .) | sort > out.1
(cd d2 && find .) | sort > out.2
diff out.1 out.2

#!/bin/ksh

...
      break
    fi
done

#!/bin/ksh

...
      exec ./what_you_want_to_do *.pl
    fi
done

#!perl

...

print "\n\n", "End", "\n\n";
print join("\n", keys %checkthese), "\n";