#!/usr/bin/perl

my $vel = int(rand(6)); 

print $vel . "\n";