use Data::Dumper;
print "Hello world\n";

2) $perl -M"O=CC",-odumper.c dumpler.pl

3) $CC/DECC /INCLUDE=PERL_ROOT:[LIB.VMS_AXP.5_6_0.CORE]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj/NoList/NOANSI_ALIA dumper.c

##</code><code>##

  lab_644d60:
..^
%CC-I-UNREACH, code can never be executed at label lab_644d60
at line number 21476 in file SYS$SYSDEVICE:[DYWWW.TEST]DUMPER.C;1

        MAYBE_TAINT_SASSIGN_SRC(sv);
........^
%CC-W-UNINIT1, The scalar variable "left" is fetched but not
initialized.
at line number 21415 in file SYS$SYSDEVICE:[DYWWW.TEST]DUMPER.C;1

##</code><code>##

          
%SYSTEM-F-ACCVIO, access violation, reason mask=00, virtual
address=0000000000000000, PC=0000000000000000, PS=0000001B          
%TRACE-F-TRACEBACK, symbolic stack dump follows
  image    module    routine             line      rel PC  
abs PC                    
                                            0 0000000000000000
0000000000000000     
 DUMPER  DUMPER  main                   70561 000000000005B0D0
000000000009B0D0                            
 DUMPER  DUMPER  __main                     0 0000000000000070
0000000000040070