|  | #!/usr/bin/env perl | 
|  | # Backward compatibility redirection | 
|  |  | 
|  | ## Copyright The Mbed TLS Contributors | 
|  | ## SPDX-License-Identifier: Apache-2.0 | 
|  | ## | 
|  | ## Licensed under the Apache License, Version 2.0 (the "License"); you may | 
|  | ## not use this file except in compliance with the License. | 
|  | ## You may obtain a copy of the License at | 
|  | ## | 
|  | ## http://www.apache.org/licenses/LICENSE-2.0 | 
|  | ## | 
|  | ## Unless required by applicable law or agreed to in writing, software | 
|  | ## distributed under the License is distributed on an "AS IS" BASIS, WITHOUT | 
|  | ## WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | 
|  | ## See the License for the specific language governing permissions and | 
|  | ## limitations under the License. | 
|  |  | 
|  | my $py = $0; | 
|  | $py =~ s/\.pl$/.py/ or die "Unable to determine the name of the Python script"; | 
|  | exec 'python3', $py, @ARGV; | 
|  | print STDERR "$0: python3: $!. Trying python instead.\n"; | 
|  | exec 'python', $py, @ARGV; | 
|  | print STDERR "$0: python: $!\n"; | 
|  | exit 127; |