This will tell you what OS it's running on, and it'll also give you the release number:

#!/usr/bin/perl

use strict;
use warnings;
use POSIX qw(uname);

my ($uname_s, $uname_r) = (POSIX::uname())[0,2];
print "$uname_s\n", "$uname_r\n";
[download]