Select Code to Download

#! /usr/bin/perl -w
use strict;
...
        print "Thread Message is $message\n";
        return (1,2,3);
}

silly@bluetit:~/perl/threads$ thread.pl
100
Thread Message is test1
1 2 3
Segmentation fault