In that case, it's dead simple:

use Sys::Hostname;
sub run_with_gui { # returns boolean
  defined $ENV{'DISPLAY'} or return 0;
  my( $display ) = $ENV{'DISPLAY'} =~ /(.*):/;
  $display eq '' || $display eq hostname()
}
[download]