#!/usr/bin/perl -w

$_ = <>;
my ($l, $p) = ($_ =~ /^\s*[\d.]+\s+([\d.]+)\s+[\d.]+\s+\d+\/(\d+)/);
$l = int($l*100);

my $h = `hostname`;
chomp $h;
print <<EOF;
$l
$p

$h
EOF

1;

