Tk - Changing width of frame (Progressbar)

This is a small problem but its really annoying me.
Here is my code for a progress bar which pops up when my program begins running.
$progressbar = $mw->Toplevel();
    $progressbar->title("Progress of Conversion");
    $progressbar->ProgressBar(
        -width => 30,
        -from => 0,
        -to => 100,
        -blocks => 20,
        -colors => [0, 'green', 50, 'yellow' , 80, 'red'],
        -variable => \$percent_done)->pack(-fill => 'x');

The window that pops up is small and you can only read the first few characters of the title. The progressbar is obviously also small. I thought I could change the width by putting $progressbar = $mw->Toplevel(-width => 100);
This doesn't do anything.
How can I change the width of my window that pops up and have the progress bar fill it?