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

my $file = 'jitter.dat';

# datei einlesen
open my $fh, '<', $file or die "$file: $!\n";
my @input = <$fh>;
close $fh;

# zeilenumbrueche entfernen
chomp @input;


Gnuplot( @input );


sub Gnuplot {
	my ( @data ) = @_;

	for my $value ( @data ) {
		print "Inhalt: $value\n";
	}
}

__END__