#!/usr/bin/perl

use strict;
use warnings;
use File::Basename;
use FindBin qw/$Bin/;

my $name=basename $0;

# Code to detect X

exec $haveX ? "$Bin/$name.X" : "$Bin/$name.cmd";

__END__