Select Code to Download

#!/usr/bin/perl -w
use strict;
...
output:
this is a test
first print returned 1