#!/usr/bin/perl
use POSIX;

$die1 = floor(rand(6)+1);
$die2 = floor(rand(6)+1);
print "$die1 $die2\n";

if ($die1 == $die2) {
	print "You win!";	
} else {
	print "You lose!";
}
print "\n";