#!/usr/bin/perl

use strict;
use warnings;

use Qt4;
use TabDialog;

sub main {
    my $app = Qt4::Application( \@ARGV );
    my $fileName;

    if (@ARGV >= 1) {
        $fileName = $ARGV[0];
    }
    else {
        $fileName = '.';
    }

    my $tabdialog = TabDialog($fileName);
    exit $tabdialog->exec();
}

main();