#!/usr/bin/perl
# Version 1.9 (c) 2001
#              - Vincent Houwert (vincent@trueserver.nl)
#              - Marcel Leicher (marcel@silverpoint.nl)
#       Aangepast door: Rob Lensen (rob@bsdfreaks.nl)
#       Nu geschikt voor *BSD's
#   LAST UPDATE: 10/06/2001

@Read = (<STDIN>);

$in  = $Read['0'];
$out = $Read['1'];
# $eerst = $een/1024; # Maak er GB van

$datain = $in*1024; # Maak er KB van
$datain = $datain*1024; # Maak er Bytes van
$datain = $datain*8;

$dataout = $out*1024; # Maak er KB van
$dataout = $dataout*1024; # Maak er Bytes van
$dataout = $dataout*8;


print "20$ARGV[0]:I\t$datain\n";
print "20$ARGV[0]:O\t$dataout\n";