Extract method example (Before)

From ExtUtils::Install::install() 1.32

    mkpath($targetdir,0,0755) unless $nonono;
    print "mkpath($targetdir,0,0755)\n" if $verbose>1;

    utime($atime,$mtime + $Is_VMS,$targetfile) unless $nonono>1;
    print "utime($atime,$mtime,$targetfile)\n" if $verbose>1;

    $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
    chmod $mode, $targetfile;
    print "chmod($mode, $targetfile)\n" if $verbose>1;