Something

hjacob@desktop:/media/usbdisk$ cat dice.pl
  #!/usr/bin/perl
  use strict;
  use warnings;

  print "Side of die: ";
  my $digit = <>;

  my $range = $digit;
  my $minimum = 1;

  my $random_number = int(rand($range)) + $minimum;

  print "Result: " . $random_number . "\n";
hjacob@desktop:/media/usbdisk$ perl dice.pl 
Side of die: 6
Result: 4
hjacob@desktop:/media/usbdisk$