print "Hi, C!\n";
use Inline C;
   waste();
   __END__
   __C__
   void waste(){
      void *p = malloc(sizeof(int));
      //free(p);
      printf("Hi, Perl!\n");
   }