#!/usr/bin/perl

BEGIN {
  my $shellcode = <<__KOEKOEK__;
. sybsdk/SYBASE.sh
perl -MData::Dumper -e 'print Dumper [\%ENV]'
__KOEKOEK__

  %ENV = (%ENV => @{eval qx{/bin/sh -c "$shellcode"}});
};
use DDP;
p %ENV;