#!/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";