System Functions Perl

print "Some lottery numbers to try:";
foreach (1 .. 6) {
    print " " . int rand (50) + 1;
}