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

use Tk;

my @test = ("");

my $top = MainWindow -> new(-background => 'black', -height => '768', -width => '1024');
$top -> title('Scrutator');


my $rw = open(FILE,'E:\Eigene Dateien\Programme\Test\profiles.xml');
if(not defined($rw)) {
die "Fehler beim Öffnen der Datei: $!\n";
}
while(defined(my $i = <FILE>)) { $test[0] = $i; }
close(FILE);


MainLoop;