use Module::Build; open( DCH, "<", "debian/changelog" ) or die "changelog: $!"; my $version = "0"; while ( defined ( my $line = ) ) { if ( $line =~ /\(([0-9.]+)\)/ ) { $version = $1; last; }; }; close( DCH ); my $build = Module::Build->new ( 'module_name' => 'Piny' , 'dist_version' => $version , 'license' => 'BSD-3' , 'setup_files' => { 'share/ikiwiki.setup' => 'share/ikiwiki.setup' } , 'install_path' => { 'share' => '/usr/share/libpiny' } , 'requires' => { 'Moose' => 0 , 'Email::Valid::Loose' => 0 } ); $build->add_build_element( "setup" ); $build->create_build_script( );