package A;

my $var = 1;

sub mysub {
  print $var;
}

B::yoursub( \&mysub );

1;

##</code><code>##

package B;

sub yoursub {
  shift->();
}

##</code><code>##

#!/usr/bin/perl -w

use strict;

my $pid;
my $output;

defined( $pid = fork ) or die "Unable to fork!\n$!\n";

if ( $pid ) {
  print "Hi! I'm a parent!  This is my child $pid\n";
  while ( ( $output = kill( 0, $pid ) ) > 0 ) {
  print "I'm going to wait for my child to die...\n";
  print $output, "\n";
  sleep 2;
  }

} else {
  print "I'm a kid!  My name is $$\n";
  print "I'm going to die now\n";
}

##</code><code>##

#!/usr/bin/perl -w

use strict;

my $pid;
my $output;

defined( $pid = fork ) or die "Unable to fork!\n$!\n";

$SIG{CHLD} = 'IGNORE'; # this is the only difference

if ( $pid ) {
  print "Hi! I'm a parent!  This is my child $pid\n";
  while ( ( $output = kill( 0, $pid ) ) > 0 ) {
  print "I'm going to wait for my child to die...\n";
  print $output, "\n";
  sleep 2;
  }

} else {
  print "I'm a kid!  My name is $$\n";
  print "I'm going to die now\n";
}

##</code><code>##

#!/usr/bin/perl -w

use strict;

my $input = qq(
<style>
 My style is here
</style>

After first style

<style file="while.css" />

After second style
);

print $input, "\n-------------\n";
$input =~ s!<(s(?:cript|tyle))[^>]*>(?:.*?</\1>)?!!gis;

print $input, "\n";

__END__

# output #

<style>
 My style is here
</style>

After first style

<style file="while.css" />

After second style

-------------



After first style



After second style


##</code><code>##

print "56565656565656565656565656565656565656565656\n";

  $i = 0;
  foreach $point ( @$block ) {
    print "block $i\n";

    $j = 0;
    foreach $vertex ( @$point ) {
      print"vertex $j\n";

      $k = 0;
      foreach $vertexItem ( @$vertex ) {
        print '['.$i.']['.$j.']['.$k.'] =>', $vertexItem, "\n";
        $k++;
      }
      print '';
      $j++;
    }
    $i++;
  }
  print "56565656565656565656565656565656565656565656\n";

##</code><code>##

#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my ( @block, @datapoint );
$block[0][0][0] = 1;
$block[0][0][1] = 367.642121;
$block[0][0][2] = 1396.068976;
$block[0][0][3] = 0;
$block[0][0][4] = 88888;
$block[0][0][5] = 99999;
$block[0][0][6] = 99999;
$block[0][0][7] = 0;

$block[0][1][0] = 1;
$block[0][1][1] = 958.697518;
$block[0][1][2] = 1394.778302;
$block[0][1][3] = 0;
$block[0][1][4] = 88888;
$block[0][1][5] = 99999;
$block[0][1][6] = 99999;
$block[0][1][7] = 0;

#DATAPOINT
$datapoint[0][0] = 1;
$datapoint[0][1] = 725.166956;
$datapoint[0][2] = 1315.976847;
$datapoint[0][3] = 0;
$datapoint[0][4] = 99999;

$datapoint[1][0] = 2;
$datapoint[1][1] = 706.139399;
$datapoint[1][2] = 1240.897744;
$datapoint[1][3] = 0;
$datapoint[1][4] = 777;


my ($blocka, $datapointa) = FINDPOINTSONVERTEX(\@block, \@datapoint);

sub FINDPOINTSONVERTEX {

  my ($blocks, $datapoint) = @_;

  my $i10 = 0;
  my $oo = 0;
  my $jj;

  P: for my $kk (0..$#$datapoint) {
       print "KK: $kk\n";
      BB: for $jj (0..$#{@{$blocks->[$datapoint->[$kk]->[3]]}}) {
           print "JJ: $jj\n";
         if ($datapoint->[$kk]->[1] == $blocks->[$datapoint->[$kk]->[3]]->[$jj]->[1] ) {
            $datapoint->[$kk]->[4] = $jj;
            $blocks->[$datapoint->[$kk]->[3]]->[$jj]->[5] = 11112;
            $oo = $oo + 1;

            $datapoint->[$kk]->[4] = 777;

            next P;
         }
      }
   }
   return($blocks, $datapoint);
}


print Dumper( $blocka, $datapointa );

#
# Output
#
#
#$VAR1 = [
#          [
#            [
#              1,
#              '367.642121',
#              '1396.068976',
#              0,
#              88888,
#              99999,
#              99999,
#              0
#            ],
#            [
#              1,
#              '958.697518',
#              '1394.778302',
#              0,
#              88888,
#              99999,
#              99999,
#              0
#            ]
#          ]
#        ];
#$VAR2 = [
#          [
#            1,
#            '725.166956',
#            '1315.976847',
#            0,
#            99999
#          ],
#          [
#            2,
#            '706.139399',
#            '1240.897744',
#            0,
#            777
#          ]