#!/usr/bin/perl

require "../oscpl/osc.pl";

osc_connect("infocalypse.al.cl.cam.ac.uk", 4500, "GPIB0::7::INSTR");

# calibrate, print, system, trace excluded

while (<>) {
	chop($_);
	osc_write($_) || die "osc_write: $!";
}

