our %script_aliases = load_scripts();

sub load_scripts {
    my (%script_aliases, $script_aliases);
    if (-d "scripts") {
	while(<scripts/*.script>) {
	    my $script_name = $_;
	    my $script = $1 if $script_name =~ /\/(.*)\.script/;
	    print "Loading script: $script_name\n";
	    require "$script_name";
	    my @alias = eval "${script}_load()";
	    $script_aliases{$alias[0]} = $alias[1];
	}

	return %script_aliases;
    } else {
	die "Scripts directory does not exist.\n";
    }
}