Rip();
sub Rip {
  print "Rip on\n";
  Van(); Winkle(); 
  print "Rip off\n";
}
sub Van {
  print "Van on\n";
  Winkle(); 
  print "Van off\n";
}
sub Winkle {
  print "Winkle\n";
}
__END__
Rip on
Van on
Winkle
Van off
Winkle
Rip off