#!/usr/bin/env perl

use strict;
use warnings;

use Tk;

my $mw = MainWindow::->new(-use => $ARGV[0] || '');

$mw->Label(-text => 'Slave')->pack;

MainLoop;