use Config;

my $ldopts = `$^X -MExtUtils::Embed -e ldopts -- -std @ARGV`;

if($^O eq "aix") {
    $ldopts =~ s,(-bE:)(perl\.exp),$1$Config{archlibexp}/CORE/$2,;
    #system "cp $Config{archlibexp}/CORE/perl.exp ./perl.exp";
}	

#if($ldopts =~ s/^(Note.*)$//mg) {
#    warn "$1\n";
#}

$ldopts = join "\n",
          map {warn "$1\n" if s/^(Note.*)$//;$_}
          split "\n", $ldopts;


print $ldopts;