#!/usr/bin/perl -w

use strict;
use Sys::Hostname;

my $prefix=shift;

open TEMP, '<'.$prefix.'_input' or die "Cant open temp input file: $!";
my $temp = <TEMP>;
die "Cant read temp input file: $!" unless defined $temp;
chomp $temp;
close TEMP;

$temp /= 1000.0;

my $h = hostname;
print <<EOF;
0
$temp

$h
EOF

1;

