#!/usr/bin/perl

use strict;
use warnings;
use Qt4;
use MainWindow;

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

    my $window = MainWindow();
    if (scalar @ARGV == 1) {
        $window->openFile($ARGV[1]);
    }
    else {
        $window->openFile('files/bubbles.svg');
    }
    $window->show();
    return $app->exec();
}

exit main();