Select Code to Download

#!/usr/bin/perl
use strict;
...
$ perl test.pl
$ ls -la fig | grep simple
-rw-rw-r--  1 tinyos tinyos 9401 Feb  1 19:18 simple.png