$frame_2->Button(
    -text => 'Print', -width=>7,
    -command=>sub {print $scroll->Contents ()},
    )->pack(-side =>'bottom');