#!/usr/bin/perl -w
use strict;

%DVDs = (
    
   'Reservoir Dogs: Special Edition' => {
        
         'EAN' => '060049145457',
         'director'=> 'Quentin Tarantino',
          'year' => '1992',
          'region' => 2,
          'encoding' => 'PAL',
          'aspect ' => '16:9',
          'anamorphic' => 0,
          'widescreen' => 1,
          'audio' => 'Dolby Digital 5.1',
          'length' => 94,
          'cert' => 18,
          'rating' => 5,
  },
    
   'C programmers: A documentary' => {
        
         'EAN' => '060049189573',
         'director'=> 'Ken Thompson',
          'year' => '1996',
          'region' => 2,
          'encoding' => 'PAL',
          'aspect ' => '18:2',
          'anamorphic' => 1,
          'widescreen' => 1,
          'audio' => 'Dolby Digital 5.1',
          'length' => 122,
          'cert' => 16,
          'rating' => 4,
  },

  'The History of Pascal' => {
        
         'EAN' => '060054789573',
         'director'=> 'Niklaus Wirth',
          'year' => '1996',
          'region' => 2,
          'encoding' => 'PAL',
          'aspect ' => '16:2',
          'anamorphic' => 1,
          'widescreen' => 1,
          'audio' => 'Dolby Digital 5.1',
          'length' => 175,
          'cert' => 16,
          'rating' => 4,
  },
);