Select Code to Download

#!/usr/bin/perl

...
 semper nunc, in dictum magna.', 'First match');
is ($second, 'sed rhoncus sapien euismod cursus. Vestibulum a posuere'
+, 'Second match');
done_testing ();

$ perl 1160410.pl
ok 1 - First match
ok 2 - Second match
1..2