#!/usr/bin/perl

$x = rand(100);
print "x = $x\n";
# prints a floating point number between 0 and 100

$x_int = int($x);
print "x_int = $x_int\n";
# prints the integer part of $x