or download this
#!/usr/bin/perl
use strict;
...
my $goodoct="\2\61\70\62\60\0\60\1\0\0\300\0\0\60\60\65\61\60\60\60\70
+\61\60\62\64\60\64\64\70\62\66\70\63\61\65\65\64\60\60\60\60\60\60\60
+\60\60\60\64\61\65\65\64\60\60\60\3";
print " GOOD OCTAL: $goodoct\n";