$ /usr/local/bin/perl -e 'open my $fh, "uname -rs |"; print <$fh>;'
SunOS 5.8