#!/usr/bin/env perl
use strict;
use warnings;

sub upload      () { rand 50 }
sub getTicket   () { rand 60 }
sub downLoading () { rand 70 }

sub printCLine { print shift }

# Start of bartender1382 code
my $stats = 0;
$stats = upload | getTicket | downLoading;
printCLine ($stats);
# End of bartender1382 code